unit uPasswordMgr;

interface

type
  TUsers = class(TObject)
  private
    FEmail: String;
    FPassWord: String;
    FUserName: String;
  public
    property Email: String read FEmail write FEmail;
    property PassWord: String read FPassWord write FPassWord;
    property UserName: String read FUserName write FUserName;
  end;

  TUserMgr = class(TObject)
  end;

  TSystemMgr = class(TObject)
  public
    function Login(const AUsers: TUsers): Boolean;
    procedure RegisterUser(const AUsers: TUsers);
  end;

implementation

function TSystemMgr.Login(const AUsers: TUsers): Boolean;
begin
  Result := False;
  // TODO -cMM: TSystemMgr.Login default body inserted
end;

procedure TSystemMgr.RegisterUser(const AUsers: TUsers);
begin
  // TODO -cMM: TSystemMgr.RegisterUser default body inserted
end;

end.
